'ScriptLanguage=VBScript
Function XK3190_A9(pValue)
  'On Error Resume Next
  Dim a,i
  Dim tmpStr
  tmpStr=Mid(pValue,Instr(pValue,Chr(2))+1)
'  tmpStr=Replace(pValue,"-","+")
'  a=Split(tmpStr,"+")
'  If Ubuond(a)>1 Then 
'    tmpStr=a(1)
'    XK3190_A9=Left(tmpStr,6)
'  End If
End Function